home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / ags210.arc / LIGHTBAR.PRG < prev    next >
Text File  |  1988-01-27  |  419b  |  12 lines
  1. * choice and key should be public variables
  2. parameter choice, row,  col,  rows,  cols,;
  3.           total,  sep,  width,  backgrnd,  color
  4. menubar = chr(choice) + ' ' + chr(row+1) + chr(col+1) + ;
  5.           chr(rows) + chr(cols) + chr(total) + chr(sep) +; 
  6.           chr(width) + chr(backgrnd) + chr(color)
  7. call menubar with menubar
  8. choice = asc(substr(menubar,1,1))
  9. key    = asc(substr(menubar,2,1))
  10. return
  11.  
  12.